home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT4.EXE / SCRDEMO.001 < prev    next >
Text File  |  1990-10-23  |  1KB  |  44 lines

  1. TYPE
  2. Demo_Menu_BUFFERDEF   = RECORD
  3.      B1                : STRING[10];
  4.      B2                : STRING[10];
  5.      B3                : STRING[10];
  6.      B4                : STRING[10];
  7.      B5                : STRING[10];
  8.      B6                : STRING[10];
  9.      B7                : STRING[10];
  10.      B8                : STRING[10];
  11.      P1                : STRING[3];
  12.      O1                : STRING[29];
  13.      P2                : STRING[3];
  14.      O2                : STRING[29];
  15.      M1                : STRING[40];
  16.      P3                : STRING[3];
  17.      O3                : STRING[29];
  18.      M2                : STRING[40];
  19.      P4                : STRING[3];
  20.      O4                : STRING[29];
  21.      M3                : STRING[40];
  22.      P5                : STRING[3];
  23.      O5                : STRING[29];
  24.      M4                : STRING[40];
  25.      P6                : STRING[3];
  26.      O6                : STRING[29];
  27.      M5                : STRING[40];
  28.      P7                : STRING[3];
  29.      O7                : STRING[29];
  30.      M6                : STRING[40];
  31.      P8                : STRING[3];
  32.      O8                : STRING[29];
  33.      END;
  34.  
  35. VAR
  36. Demo_Menu_BUF   : Demo_Menu_BUFFERDEF;
  37.  
  38. PROCEDURE INITIALIZE_Demo_Menu_BUF;
  39. BEGIN
  40. FILLCHAR(Demo_Menu_BUF,606,00);
  41. S_STORE_BUF_LOC ('Demo_Menu',ADDR(Demo_Menu_BUF));
  42. END;
  43.  
  44.